function in qbasic

join shbcf.ru